﻿Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As String
        Dim b As String

        a = TextBox1.Text
        b = TextBox2.Text

        If a = "admin" And b = "admin" Then
            MessageBox.Show("ยินดีต้อนรับเข้าสู่ระบบ", "รหัสผ่านถูกต้อง", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Dim modelessform As New Form2
            modelessform.ShowDialog()

        Else
            MessageBox.Show("เกิดข้อผิดพลาด", "รหัสผ่านผิดหรือชื่อผุ้ใช้ผิด", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub
End Class
